home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / COMM / BBS / RISCBBS / !RiscBBS / Menus / Filebase / Browse next >
Text File  |  1992-02-24  |  418b  |  26 lines
  1. {
  2.  report `Filelist`
  3.  
  4.  defopt L= `Long filelist` 10 ``
  5.    a_reset B
  6.    f_list `1 L`
  7.    if RET=0
  8.      menu Filebase.LocBrowse
  9.    else
  10.      menu Filebase.Main
  11.    endif
  12.  endopt
  13.  
  14.  defopt S= `Short filelist` 10 ``
  15.    f_list `-1 RE S`
  16.    menu Filebase.Main
  17.  endopt
  18.  
  19.  defopt A= `Abort` 10 ``
  20.    menu Filebase.Main
  21.  endopt
  22.  
  23.  attr 0 6
  24. }
  25. Filelist: {fg 7}[{fg 1}L{fg 7}]ong  [{fg 1}S{fg 7}]hort  [{fg 1}A{fg 7}]bort : {fg 1 eof}
  26.